home *** CD-ROM | disk | FTP | other *** search
/ X User Tools / X User Tools (O'Reilly and Associates)(1994).ISO / sun4c / archive / tcltk.z / tcltk / slib / tk / demos / square < prev    next >
Text File  |  1994-09-20  |  1KB  |  51 lines
  1. #!///////////////////////////////////////////////////////////////////////////usr/STAGE/bin/wish -f
  2. #
  3. # This script generates a demo application containing only
  4. # a "square" widget.  It's only usable if Tk has been compiled
  5. # with tkSquare.c and with the -DSQUARE_DEMO compiler switch.
  6. # This demo arranges the following bindings for the widget:
  7. # 
  8. # Button-1 press/drag:        moves square to mouse
  9. # "a":                toggle size animation on/off
  10.  
  11. square .s
  12. pack .s -expand yes -fill both
  13. wm minsize . 1 1
  14.  
  15. bind .s <1> {center %x %y}
  16. bind .s <B1-Motion> {center %x %y}
  17. bind .s a animate
  18. focus .s
  19.  
  20. # The procedure below centers the square on a given position.
  21.  
  22. proc center {x y} {
  23.     set a [.s size]
  24.     .s position [expr $x-($a/2)] [expr $y-($a/2)]
  25. }
  26.  
  27. # The procedures below provide a simple form of animation where
  28. # the box changes size in a pulsing pattern: larger, smaller, larger,
  29. # and so on.
  30.  
  31. set inc 0
  32. proc animate {} {
  33.     global inc
  34.     if {$inc == 0} {
  35.     set inc 3
  36.     timer
  37.     } else {
  38.     set inc 0
  39.     }
  40. }
  41.  
  42. proc timer {} {
  43.     global inc
  44.     set s [.s size]
  45.     if {$inc == 0} return
  46.     if {$s >= 40} {set inc -3}
  47.     if {$s <= 10} {set inc 3}
  48.     .s size [expr {$s+$inc}]
  49.     after 30 timer
  50. }
  51.